سلام
بایستی به جای ماکرویی که استفاده کردید از نمونه کد زیر در دکمه ای که ماموریت انجام این کار رو داره ، استفاده کنید .
Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
If fDialog.Show = True Then
Me.txt_path = fDialog.SelectedItems(1)
DoCmd.OutputTo acOutputQuery, "Query1", "ExcelWorkbook(*.xlsx)", Me.txt_path, False, "", , acExportQualityScreen
End If
نمونه انجام شده اش رو هم می تونید دانلود کنید .

با سلام.ممنون از پاسخ شما.فقط اگر بخواهم ادرس مسیر انتخابی در کنار باتن (خروجی اکسل)نمایش داده شود(درtextbox، چه کاری را باید انجام بدم.

با سلام
برای این کار دو راه وجود دارد :
1- روی گزارش اکسس راست کلیک کنید و از زیر منوی export گزینه excel را انتخاب کنید .
2- از ماکروی ExportWithFormatting استفاده کنید و در تنظیمات آن گزارش مورد نظر خود را انتخاب کنید .تا با اجرای این ماکرو عملیات استخراج داده ها به اکسل صورت گیرد .
با سپاس
کاویان